home *** CD-ROM | disk | FTP | other *** search
/ Die Speccy' 97 / Die Speccy' 97.iso / amiga_system / the_aminet / comm / bbs / amms20d.lha / amms / mbbatch / com / Fastnet_Packer < prev    next >
Text File  |  1995-08-16  |  3KB  |  118 lines
  1. ;
  2. ;       *********************************************************
  3. ;       *                                                       *
  4. ;       *             NETCALL PACK-BATCHDATEI                   *
  5. ;       *                                                       *
  6. ;       *********************************************************
  7. ;
  8. ;    Autor: Michael Scheler
  9. ;    $VER: 2.02                Datum : 16.08.1995
  10. ;
  11. ;    Beschreibung :
  12. ;    Diese Batch erzeugt fuer die Befehle FASTNET SERVER und
  13. ;    FASTNET CLIENT eine Fastnet-Sendedatei <USERNAME>@FA.LHA und
  14. ;    ein Verwaltungsfile <USERNAME>@FA.MSGNR im Directory
  15. ;    MBNET:EXPORT/ .
  16. ;    Existieren dort schon diese Dateien, so werden die Alten geloescht
  17. ;    und Neue erzeugt.
  18. ;
  19. ;    Das Script sollte so eingebunden werden, dass es ueber Level und
  20. ;    Flags auf die folgende Befehle zugreifen kann :
  21. ;
  22. ;    BREAK OFF
  23. ;    CHECK FILE
  24. ;    EXTERN
  25. ;    FASTNET MAKEFILE
  26. ;    GOTO
  27. ;    IF
  28. ;    LOGOUT            <- Option /FAST muss unterstuetzt werden !
  29. ;    ON ERROR
  30. ;
  31. ;    Folgende Amiga-Dos-Befehle werden benutzt :
  32. ;
  33. ;    DELETE
  34. ;
  35. ;    Einrichtung eines Netcalls fuer eine Netzbox (Node) :
  36. ;    USERNAME : Name der anzurufenen Node
  37. ;    STRASSE  : @NETCALL
  38. ;
  39. ;    Einrichtung eines Netcalls fuer eine Netzbox (Node) des Hauptnetztes,
  40. ;    die aber nicht der eigentliche Server im Hauptnetz ist, sondern nur
  41. ;    fuer das Importieren eines weiteres Unternetzes dient.
  42. ;    USERNAME : Name der anzurufenen Node
  43. ;    STRASSE  : @LOCALNET
  44. ;
  45. ;    Einrichtung eines LocalGates fuer die Einbindung eines anderen
  46. ;    lokalen Netzwerks :
  47. ;    USERNAME : Name der anzurufenen Node
  48. ;    VORNAME  : Gatename im Fastnet
  49. ;    STRASSE  : @LOCALGATE
  50. ;
  51. ;    Einrichtung eines Gates fuer die Einbindung eines anderen 
  52. ;    globalen Netzwerks :
  53. ;    USERNAME : Name der anzurufenen Node
  54. ;    VORNAME  : Gatename im Fastnet
  55. ;    NACHNAME : Gatename im Fremd-Netz
  56. ;    STRASSE  : @GATE
  57. ;
  58. ;    Konstanten :
  59. ;
  60. TMPDIR   = "mbmsg:point/'{port}'/"        ; TMP-Directory
  61. NETDIR   = "mbnet:Export/"            ; Export-Directory
  62. MAXKBYT  = 2000                    ; Max. Laenge des Msg-Files
  63. COPYFILE = "'{NAME}'@FA.lha"            ; Vorgabefile (Pack-Event)
  64. COPYNR   = "'{NAME}'@FA.msgnr"            ; File fuer Msg-Nummern
  65. MSGFILE  = "msgs"                ; File fuer Msgs
  66. PACKER   = "lha -IP-1 m ""'NETDIR''COPYFILE'"" ""'TMPDIR''MSGFILE'"""
  67.                         ; Packen
  68. ;
  69. ;    Abbruch sperren / Fehler umleiten
  70. ;
  71.  
  72. _break off                    ; Kein Break erlauben
  73. _on error END_FAIL                ; Label fuer Fehler
  74.  
  75. ;
  76. ;    Optionen fuer Zusatz-Funktionen erzeugen
  77. ;
  78.  
  79.  MAKOPT=""
  80. _if {STREET} != "@NETCALL" then _goto NONETCALL
  81.  MAKOPT=""
  82. _goto ENDOFOPT
  83. NONETCALL:
  84. _if {STREET} != "@LOCALGATE" then _goto NOLOCALGATE
  85.  MAKOPT="/Filter=%0111100000000/Type=2"
  86. _goto ENDOFOPT
  87. NOLOCALGATE:
  88. _if {STREET} != "@GATE" then _goto NOGATE
  89.  MAKOPT="/Filter=%0111100000000/Type=1"
  90. _goto ENDOFOPT
  91. NOGATE:
  92. _if {STREET} != "@LOCALNET" then _goto NOLOCALNET
  93.  MAKOPT="/Filter=%0111100000000"
  94. _goto ENDOFOPT
  95. NOLOCALNET:
  96. ENDOFOPT:
  97.  
  98. ;
  99. ;    Alles aus TMP-Directory loeschen
  100. ;
  101.  
  102. _if TMPDIR != "" then _extern/q delete "'TMPDIR'#?" ; TMP-Dir loeschen
  103.  
  104. ;
  105. ;    Neue Nachrichten fuer andere Box sammeln & packen
  106. ;
  107.  
  108. _extern/q delete "'NETDIR''COPYFILE'" "'NETDIR''COPYNR'" ; Alte Files loeschen
  109. _fastnet makefile'MAKOPT' "'TMPDIR''MSGFILE'" 'MAXKBYT' "'NETDIR''COPYNR'"
  110. _extern/q 'PACKER'
  111.  
  112. ;
  113. ;    Ende
  114. ;
  115.  
  116. END_FAIL:
  117. _logout/f                    ; Ausloggen
  118.